50 REM*****************************
51 REM**      CHECKBOOK          **
52 REM**                         **
53 REM**     GABRIEL EGRI        **
54 REM**  3 ECCLESTON DRIVE      **
55 REM**      SUITE #103         **
56 REM**     TORONTO, ONT.       **
57 REM**        M4A 1J9          **
58 REM*****************************
59 REM
60 REM
120 R$="***":I=9:V=1:PRINTCHR$(142):GOSUB15000
180 PRINT"[145][145][145][145][145][145][145][145][145]"TAB(15)" DEPOSIT      ":PRINTTAB(15)" WITHDRAWAL   "
190 PRINTTAB(15)" WRITE CHEQUE ":PRINTTAB(15)" PAY BILLS    "
200 PRINTTAB(15)" ADJUSTMENTS  ":PRINTTAB(15)" ZERO ACCOUNT "
210 PRINTTAB(15)" VIEW BOOK    ":PRINTTAB(15)" READ BALANCE "
215 PRINTTAB(15)" MORE MENU    "
220 GETM$:IFM$<"1"ORM$>"9"THEN220
225 POKE53281,1
230 M=VAL(M$):ONMGOTO1000,2000,3000,4000,5000,6000,7000,8000,10000
315 PRINT"[147]"SPC(123)"[213][195][201][157][157][157][202][195][203][145][157][157][157][221]O[221]NE AT A TIME"
320 PRINTSPC(217)"-OR-"
325 PRINTSPC(225)"[213][195][201][157][157][157][202][195][203][145][157][157][157][221]S[221]CROLL"
330 GETM$:IFM$<>"O"ANDM$<>"S"THEN330
335 IFM$="S"THEN350
340 GOTO5400
350 POKE53280,0:POKE53281,0:PRINT"[147]":TR=1:L$="":FORX=1TO40:L$=L$+"[195]":NEXT
351 OPEN8,8,8,"0:TRCOUNTER,S,R"
352 INPUT#8,T$:CLOSE8:LI=VAL(T$)-1
355 TR$=STR$(TR):FR$="TR#"+TR$:OPEN3,8,3,"0:"+FR$+",S,R"
360 INPUT#3,MO$,D$,A$,R$,TT$,CB$
362 CLOSE3
365 PRINT""FR$
370 PRINT""MO$" "D$TAB(9)TT$TAB(20)A$TAB(30)"[153]"CB$:PRINT""R$
372 PRINTL$"[145]"
375 TR=TR+1:IFTR/4=INT(TR/4)THEN700
376 IFTR>LITHENPRINT"END OF RECORDS":GOTO700
380 GOTO355
385 TR=1:Y=0
390 OPEN8,8,8,"0:TRCOUNTER,S,R"
395 INPUT#8,T$:CLOSE8:LI=VAL(T$)-1
400 TR$=STR$(TR):FR$="TR#"+TR$:OPEN3,8,3,"0:"+FR$+",S,R"
405 INPUT#3,MO$,D$,A$,R$,TT$,CB$
410 CLOSE3
415 OPEN4,4
417 IFYTHEN425
420 PRINT#4,CHR$(16)"08DATE"CHR$(16)"16TYPE"CHR$(16)"27AMOUNT";
421 PRINT#4,CHR$(16)"38BALANCE"CHR$(16)"50COMMENTS"
422 PRINT#4:PRINT#4
425 PRINT#4,FR$CHR$(16)"08"MO$" "D$CHR$(16)"16"TT$CHR$(16)"27"A$CHR$(16)"38"CB$;
430 PRINT#4,CHR$(16)"49"R$
440 TR=TR+1:Y=Y+1:IFTR>LITHENFORX=0TO4:PRINT#4,CHR$(10):NEXT:CLOSE4:GOTO120
450 CLOSE4:GOTO400
455 PRINT"[213][195][195][195][201][157][157][157][157][157]     [157][157][157][157][157][202][195][195][195][203]"                  "
460 [153]"(null)LENLENRIGHT$CMDCMDCMDCMD  CMDCMDCMDCMDMID$LENLEN(null)"
470 [153][166]57)"(null)TANTANTANTANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDMID$LENLENLENLENLENLENLENLEN(null)"
480 [153][166]49)"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
490 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
699 [142]
700 [153]"WAITPRESS SPACEBAR"
710 [161]M$:[139]M$[179][177]" "[167]710
715 [139]TR[177]LI[167]120
717 [153]"ON                                 "
720 [137]355
800 [133]"";MO$:MO$[178][200](MO$,3)
810 [139][200](MO$,1)[178]"_"[167]1900
820 V[178]1:[129]X[178]1[164]12:[135]MV$:[139]MO$[178]MV$[167]V[178]0
830 [130]:[140]:[139]V[167]MO$[178]"":[137]800
840 [133]"";D$
850 [139][200](D$,1)[178]"_"[167]1900
860 D[178][197](D$):[139][195](D$)[179][177]2[176]D[179]1[176]D[177]31[167]D$[178]"":[137]840
870 [133]"";A$
880 [139][200](A$,1)[178]"_"[167]1900
890 [139][195](A$)[179]3[167]A$[178]"":[137]870
900 AV$[178][201](A$,3):[139][200](AV$,1)[179][177]"."[167]A$[178]"":[137]870
910 [142]
950 [153]"STOPPLEASE WAIT":[142]
1000 [143] DEPOSIT ROUTINE
1002 [151]53281,1:[153]"LOAD"
1004 TT$[178]"DEPOSIT"
1005 [153]"         "
1010 [153]" DEPOSIT "
1015 [153]"         "
1020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"REMARKS:"
1022 [141]455
1025 [153]"*  *  *"
1027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
1030 [141]800
1110 [133]"";R$:[139][195](R$)[177]24[167]1110
1120 [139][200](R$,1)[178]"_"[167]1900
1130 [153]"READY TO SAVE? Y/N"
1140 [161]S$:[139]S$[178]""[167]1140
1150 [139]S$[179][177]"Y"[167]1900
1155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]A[170]OB:CB$[178][196](CB)
1160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
1170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
1175 [152]3,TT$:[152]3,CB$:[160]3
1180 B$[178]OB$:R$[178]"***"
1190 A[178][197](A$):B[178][197](B$):B[178]B[170]A:B$[178][196](B)
1200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
1210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6:[137]1900
1300 [151]53281,12:[151]53280,6:[153]"LOADCHEQUE FILES"
1310 [153]"STOP(null)TANTANLENLENTANTANTANTANRIGHT$":[153]"(null)(null)":[153]"MID$TANLENLENTANTANLENTANTAN(null)"
1320 [153][163]22)"ONONON(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$":[153][163]22)"ON(null)(null)"
1330 [153][163]22)"ONMID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
1340 [153][163]12)"(null)LENLENLENLENLENLENRIGHT$":[153][163]12)"(null)(null)":[153][163]12)"MID$LENLENLENLENLENLEN(null)"
1350 [153]"AMOUNT :"
1360 [153]"BALANCE:"
1370 [153]"NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTSTOP"
1380 [142]
1400 [153]""[166]204)RF$;
1410 [153][166]15)TT$:[153][166]173)MO$" "D$
1510 [153][166]171)A$
1520 [153][166]51)CB$:[153]""R$
1530 [153]"STOPPRESS SPACEBAR"
1600 [142]
1610 LH$[178][201](CB$,3)
1620 [139][202](LH$,2,1)[179][177]"."[175][202](LH$,1,1)[179][177]"."[167]CB$[178]CB$[170]".00":[142]
1630 [139][202](LH$,2,1)[178]"."[167]CB$[178]CB$[170]"0"
1640 [142]
1900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
2000 [143] WITHDRAWAL ROUTINE
2002 [151]53281,1:[153]"LOAD"
2004 TT$[178]"WITHDRAW"
2005 [153]"            "
2010 [153]" WITHDRAWAL "
2015 [153]"            "
2020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"REMARKS:"
2022 [141]455
2025 [153]"*  *  *"
2027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
2030 [141]800
2065 [139][200](D$,1)[178]"_"[167]1900
2110 [133]"";R$:[139][195](R$)[177]24[167]2110
2120 [139][200](R$,1)[178]"_"[167]1900
2130 [153]"READY TO SAVE? Y/N"
2140 [161]S$:[139]S$[178]""[167]2140
2150 [139]S$[179][177]"Y"[167]1900
2155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
2160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
2170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
2175 [152]3,TT$:[152]3,CB$:[160]3
2180 B$[178]OB$
2190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
2200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
2210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
2900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
3000 [143] WRITE CHECQUE ROUTINE
3002 [151]53281,1:[153]"LOAD"
3004 TT$[178]"CHEQUE"
3005 [153]"         "
3010 [153]" CHEQUES "
3015 [153]"         "
3020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"PAYABLE:"
3022 [141]455
3025 [153]"*  *  *"
3027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
3030 [141]800
3110 [133]"";R$:[139][195](R$)[177]24[167]3110
3120 [139][200](R$,1)[178]"_"[167]1900
3130 [153]"READY TO SAVE? Y/N"
3140 [161]S$:[139]S$[178]""[167]3140
3150 [139]S$[179][177]"Y"[167]1900
3155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
3160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
3170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
3175 [152]3,TT$:[152]3,CB$:[160]3
3180 B$[178]OB$
3190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
3200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
3210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
3900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
4000 [143] PAY UTILITY BILLS ROUTINE
4002 [151]53281,1:[153]"LOAD"
4004 TT$[178]"UTILITY"
4005 [153]"                 "
4010 [153]" UTILITY BILLS   "
4015 [153]"                 "
4020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"PAYABLE:"
4022 [141]455
4025 [153]"*  *  *"
4027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
4030 [141]800
4110 [133]"";R$:[139][195](R$)[177]24[167]4110
4120 [139][200](R$,1)[178]"_"[167]1900
4130 [153]"READY TO SAVE? Y/N"
4140 [161]S$:[139]S$[178]""[167]4140
4150 [139]S$[179][177]"Y"[167]1900
4155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
4160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
4170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
4175 [152]3,TT$:[152]3,CB$:[160]3
4180 B$[178]OB$
4190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
4200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
4210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
4900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
5000 [143] ADJUSTMENT ROUTINE
5002 [151]53281,1:[153]"LOAD"
5004 TT$[178]"ADJUST"
5005 [153]"             "
5010 [153]" ADJUSTMENTS "
5015 [153]"             "
5020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:(+OR-)":[153]"REMARKS:"
5022 [141]455
5025 [153]"*  *  *"
5027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
5030 [141]800
5110 [133]"";R$:[139][195](R$)[177]24[167]5110
5120 [139][200](R$,1)[178]"_"[167]1900
5130 [153]"OK TO RECORD? Y/N"
5140 [161]S$:[139]S$[178]""[167]5140
5150 [139]S$[179][177]"Y"[167]1900
5155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]A[170]OB:CB$[178][196](CB)
5160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
5170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
5175 [152]3,TT$:[152]3,CB$:[160]3
5180 [159]4,8,4,"0:BALANCE,S,R":[132]4,B$:[160]4
5190 A[178][197](A$):B[178][197](B$):B[178]B[170]A:B$[178][196](B)
5200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
5210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
5220 [137]1900
5250 [153]"LOADSELECT FILE RETRIEVAL MODE"
5260 [153]"(null)LENRIGHT$"
5270 [153]"(null)A(null)LL"
5280 [153]"MID$LEN(null)"
5290 [153][163]11)"(null)LENRIGHT$"
5300 [153][163]11)"(null)R(null)ECENT"
5310 [153][163]11)"MID$LEN(null)"
5320 [153][163]22)"(null)LENRIGHT$"
5330 [153][163]22)"(null)S(null)ELECTIVE"
5340 [153][163]22)"MID$LEN(null)"
5350 [161]M$:[139]M$[178]""[167]5350
5360 [139]M$[178]"A"[167]315
5370 [139]M$[178]"R"[167]5600
5380 [139]M$[178]"S"[167]5800
5390 [137]5350
5400 [141]1300
5410 [159]3,8,3,"0:TRCOUNTER,S,R"
5415 [132]3,LI$:[160]3
5420 LI[178][197](LI$):X[178]1:[139]LI[178]1[167]5470
5425 X$[178][196](X):RF$[178]"TR#"[170]X$:
5430 [159]4,8,4,"0:"[170]RF$[170]",S,R"
5435 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
5440 [160]4:[141]1610
5445 [141]1400
5450 [161]M$:[139]M$[179][177]" "[167]5450
5455 X[178]X[170]1:[139]X[178]LI[167][153]"LOADEND OF FILES":[137]9000
5460 [153]"LOAD":[141]1300:[137]5425
5470 [153]"LOAD"[166]250)"NO FILES ON DISK!"
5480 [129]W[178]1[164]2000:[130]
5499 [137]120
5600 [143] VIEW MOST RECENT FILES ROUTINE
5605 [151]53281,1:[153]"LOADSTOP"[166]123)"THIS ROUTINE WILL DISPLAY THE";
5610 [153]" MOST       RECENT -N- RECORDS, WHERE -N- IS"
5615 [153]"EQUAL TO THE NUMBER OF RECORDS"
5620 [153][163]15)"DISPLAYED.":[153][166]80)"E.G.CMD IF N=20 THEN THE MOST";
5625 [153]" RECENT 20 "[166]53)"RECORDS ARE DISPLAYED."
5626 [159]3,8,3,"0:TRCOUNTER,S,R":[132]3,T$:[160]3:T[178][197](T$):NF[178]T[171]1
5630 [133]"STOPINPUT N";N
5635 [139]N[177]NF[167][153]"THERE ARE ONLY "NF" FILES":[129]W[178]1[164]4000:[130]:[137]5600
5640 X[178]NF[171]N[170]1:X$[178][196](X):[139]X[178]T[171]1[175]BG[178]1[167]BG[178]0:[137]5642
5641 BG[178]1:[137]5645
5642 [153]"LOADEND OF FILES":[137]9000
5645 X$[178][196](X):RF$[178]"TR#"[170]X$:[159]4,8,4,"0:"[170]RF$[170]",S,R"
5650 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
5655 [160]4:[141]1610:[153]"LOAD":[141]1300:[141]1400
5657 [161]M$:[139]M$[179][177]" "[167]5657
5660 X[178]X[170]1:[139]X[177]NF[167]5670
5665 [137]5645
5670 [153]"LOADEND OF FILES":[137]9000
5800 [153]"LOADTHIS ROUTINE WILL DISPLAY ONE";
5810 [153]"            TRANSACTION OF YOUR CHOICE."
5820 [153][166]250)[166]72)"INPUT TR# OF TRANSACTION YOU WANT";
5830 [153][166]58)"DISPLAYED."
5840 [159]3,8,3,"O:TRCOUNTER,S,R"
5850 [132]3,T$:[160]3
5860 T[178][197](T$):NF[178]T[171]1
5870 [133] "INPUT TR#";N
5880 [139]N[177]NF[167]5900
5890 [137]5930
5900 [129]X[178]1[164]6:[153]"THERE ARE ONLY "NF"FILES"
5910 [129]W[178]1[164]500:[130]:[153]"ON                                   "
5920 [129]W[178]1[164]300:[130]W,X:[137]5800
5930 N$[178][196](N):RF$[178]"TR#"[170]N$:[159]4,8,4,"0:"[170]RF$[170]",S,R"
5940 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
5950 [160]4:[141]1610:[153]"LOAD":[141]1300:[141]1400
5960 [161]M$:[139]M$[179][177]" "[167]5960
5970 [137]120
6000 [143] ZERO ACCOUNT ROUTINE
6002 [151]53281,1:[153]"LOAD"
6005 [153]"              "
6010 [153]" ZERO ACCOUNT "
6015 [153]"              "
6020 [153]"WARNING"
6030 [153]"THIS ROUTINE WILL WIPE ALL YOUR RECORDS FROM THE DISK AND";
6035 [153]" RESET THE BALANCE TO  ZERO."
6040 [153]"DO YOU WISH TO PROCEED? Y/N"
6050 [161]S$:[139]S$[178]""[167]6050
6060 [139]S$[179][177]"Y"[167]1900
6070 [153]"IF YOU'RE SURE THEN TYPE THE WORD "[199](34)"ZERO"[199](34)
6080 [153]"ONUSRUSRUSRUSR"
6090 [133]"";Z$
6100 [139]Z$[179][177]"ZERO"[167]1900
6105 [153]"POKEPLEASE WAIT"
6110 [159]15,8,15,"S0:TR#*":[160]15
6120 [159]3,8,3,"@0:TRCOUNTER,S,W"
6130 [152]3,"1":[160]3
6140 [159]4,8,4,"@0:BALANCE,S,W"
6150 [152]4,"0":[160]4
6999 [137]1900
7000 [143] VIEW BOOK ROUTINE
7002 [151]53281,1:[153]"LOAD"
7005 [153]"           "
7010 [153]" VIEW BOOK "
7015 [153]"           "
7020 [153]"PLEASE SELECT:"
7030 [153]"STOP(null)LENRIGHT$"
7040 [153]"(null)S(null)CREEN"
7050 [153]"MID$LEN(null)"
7060 [153]""[163]17)"- OR -"
7070 [153]""[163]25)"(null)LENRIGHT$"
7080 [153][163]25)"(null)P(null)RINTER"
7090 [153][163]25)"MID$LEN(null)
7100 GETM$:IFM$<>"S"ANDM$<>"P"THEN7100
7110 IFM$="P"THEN385
7120 IFM$="S"THEN5250
8000 REM *** CHECK BALANCE ROUTINE ***
8010 POKE53281,1:PRINT"[147]READ  BALANCE"
8020 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184]"
8030 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
8040 [129]X[178]1[164]3:[153]"(null)(null)":[130]
8050 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
8060 [153]"ONONON$"
8070 [153][166]221)"PLEASE WAIT....."
8080 [159]8,8,8,"0:BALANCE,S,R"
8090 [132]8,B:[160]8:CB$[178][196](B):[141]1610
8100 [153]""CB$
8110 [153]"PRESS SPACEBAR TO CONTINUEWAIT      "
8120 [161]M$:[139]M$[179][177]" "[167]8120
8130 [137]120
9000 [129]W[178]1[164]3000:[130]:[137]120
10000 [143] MORE MENU
10010 I[178]5:[141]15000
10020 [153]""[163]15)" FORMAT DISK   "
10030 [153][163]15)" CANCEL LAST TR"
10040 [153][163]15)" *   HELP   *  "
10050 [153][163]15)" EXIT TO BASIC "
10060 [153][163]15)" FIRST MENU    "
10070 [161]M$:[139]M$[179]"1"[176]M$[177]"5"[167]10070
10080 M[178][197](M$):[145]M[137]16000,17000,18000,19000,120
10999 [144]
12000 [159]8,8,8,"0:TRCOUNTER,S,R"
12010 [132]8,T$:[160]8
12020 [159]9,8,9,"0:BALANCE,S,R"
12022 T[178][197](T$):[139]T[179]105[167]12030
12024 [160]9:[153]"LOADDISK FULL OF DATA"
12026 [153]"PLEASE INSERT NEW DISK FOR FORMATTING":[128]
12030 [132]9,OB$:[160]9:[142]
15000 [143] DRAW MENU TABLOID
15010 [151]53281,7:[151]53280,2:[153]"LOADSTOP"
15020 H$[178]"***CHECKBOOK***":[153]H$
15030 [153]"S E L E C T   T R A N S A C T I O NWAITSTOP"
15040 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
15050 [129]X[178]1[164]I:[153]"(null)(null)(null)":[130]
15060 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
15070 [153]"":[129]X[178]1[164]I:[153][163]11)X:[130]:[142]
16000 [143] FORMATTING ROUTINE
16002 [151]53281,1:[153]"LOAD"
16005 [153]"                 "
16010 [153]" FORMAT NEW DISK "
16015 [153]"                 "
16020 [153]"STOPENTER DISK NAME"
16030 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
16040 [153]"(null)               (null)"
16050 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
16080 [153]"ONON";:G[178]1:DN$[178]""
16090 [161]G$:[139]G$[178]""[167]16090
16095 [153]G$;:[139]G$[178][199](13)[167]16150
16100 DN$[178]DN$[170]G$:G[178]G[170]1
16110 [139]G[177]15[167]16150
16120 [137]16090
16150 [153]"" [163]24)"ONONONID"
16160 [153][163]23)"(null)LENLENRIGHT$"
16170 [153][163]23)"(null)  (null)":[153][163]23)"MID$LENLEN(null)";
16180 [153]"ONCMDCMDCMD";
16190 G$[178]"":ID$[178]"":[129]G[178]0[164]1:[161]G$:ID$[178]ID$[170]G$:[153]G$;:[130]
16193 [129]G[178]0[164]1
16195 [161]G$:[139]G$[178]""[176]G$[178][199](13)[167]16195
16197 ID$[178]ID$[170]G$:[153]G$;:[130]:[153]
16200 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
16210 [153]"(null)    INSERT NEW DISK IN DRIVE!    STOP(null)"
16220 [153]"(null)    PRESS "[199](34)"*"[199](34)" WHEN READYSTOP(null)"
16230 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
16240 [153]"  ** PRESS SPACEBAR TO ABORT ROUTINE **"
16250 [161]M$:[139]M$[179][177]" "[175]M$[179][177][199](42)[167]16250
16260 [139]M$[178]" "[167]120
16270 [153]"STOPPLEASE WAIT"
16280 [159]15,8,15,"N0:"[170]DN$[170]","[170]ID$
16290 [160]15
16300 [148]"CHECKBOOK",8
16310 [159]3,8,3,"0:BALANCE,S,W"
16320 [152]3,"0":[160]3
16330 [159]4,8,4,"0:TRCOUNTER,S,W"
16340 [152]4,"1":[160]4
16350 [137]120
17000 [143] CANCEL LAST TR ROUTINE
17010 [151]53281,1:[153]"LOAD*** CAUTION ***"
17020 [153]"STOPTHIS ROUTINE WILL ERASE THE LAST"
17025 [153]"TRANSACTION ON YOUR";
17030 [153]" DISK AND WILLRESET THE BALANCE TO WHAT IT WAS"
17040 [153]"PRIOR TO THE LAST TRANSACTION."
17045 [153]"* * *"
17047 [153]"POKEDO YOU WISH TO PROCEED?   Y/N"
17050 [161]M$:[139]M$[178]""[167]17050
17060 [139]M$[178]"Y"[167]17080
17070 [137]120
17080 [153]"POKEPLEASE WAIT"
17110 [159]4,8,4,"0:TRCOUNTER,S,R"
17120 [132]4,T$:[160]4
17130 TC$[178]T$:T[178][197](T$):T[178]T[171]2:T$[178][196](T)
17131 [139]T[179]1[167]17133
17132 [137]17139
17133 [151]53281,1:[153]"LOADTHERE RE NOT ENOUGH FILES TO USE"
17134 [153]"THIS ROUTINE. PLEASE USE "[199](34)"ZERO"
17135 [153]"ACCOUNT"[199](34)" ROUTINE.":[153][166]252)"PRESS SPACEBAR"
17136 [161]M$:[139]M$[179][177]" "[167]17136
17138 [137]120
17139 C$[178]"TR#":FI$[178]C$[170]T$
17140 [159]5,8,5,"0:"[170]FI$[170]",S,R"
17150 [129]X[178]0[164]5:[132]5,CB$:[130]:[160]5
17160 [159]6,8,6,"@0:BALANCE,S,W"
17170 [152]6,CB$:[160]6
17180 T[178]T[170]1:T$[178][196](T)
17190 FI$[178]C$[170]T$
17200 [159]15,8,15,"S0:"[170]FI$
17210 [160]15
17220 TC[178][197](TC$):TC[178]TC[171]1:TC$[178][196](TC)
17330 [159]7,8,7,"@0:TRCOUNTER,S,W"
17440 [152]7,TC$:[160]7
17550 [137]120
18000 [151]53281,1:[151]53280,7
18005 [153]"LOAD"[166]53)"HELP SCREENS":[153][166]13)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18007 [153]"FORMAT DISKCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18010 [153]"   BEFORE YOU CAN USE "[199](34)"CHECKBOOK"[199](34)", YOU"
18020 [153]"MUST PLACE A BLANK DATA DISK IN THE"
18030 [153]"DRIVE AND FORMAT IT WITH THE HELP OF"
18040 [153]"THE DISK FORMAT ROUTINE. ACCESS THIS"
18050 [153]"ROUTINE  FROM LINE 1  ON THE  SECOND"
18060 [153]"MENU PAGE."
18070 [153]"ANSWER THE PROMPT: "[199](34)"ENTER DISK NAME"[199](34)
18080 [153]"WITH ANY NAME  OF YOUR CHOICE  TO A"
18090 [153]"MAXIMUM OF 15 CHARACTERS.   THE "[199](34)"ID"[199](34)
18100 [153]"MUST CONSIST OF 2 CHARACTERS."
18110 [153]"TO AVOID  DAMAGE TO YOUR  DATA DISK,"
18120 [153]"DO NOT INTERFERE WITH THE FORMATTING"
18130 [153]"PROCESS --- JUST WAIT."
18140 [141]18900
18150 [153]"LOADFORMAT DISK (CONT.)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18160 [153]"WHEN FORMATTING IS COMPLETED, THE"
18170 [153]"PROGRAM WILL BE DUPLICATED ON THE"
18180 [153]"NEW DISK,  AND MAY BE LOADED FROM"
18190 [153]"THIS DISK IN THE FUTURE."
18191 [153]"IT IS ADVISABLE TO STORE THE ORI-"
18192 [153]"GINAL DISK IN A SAFE PLACE AND"
18193 [153]"PERFORM ALL FUTURE DUPLICATIONS FROM"
18194 [153]"AN IN-USE DATA DISKETTE.":[141]18900
18200 [153]"LOADDEPOSITS - WITHDRAWALS "
18210 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18220 [153][163]9)"CHEQUES - BILLS - ADJUSTMENTS"
18230 [153][163]9)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18240 [153]"AS SOON AS YOU ENTER THESE ROUTINES"
18250 [153]"THE TR#  (TRANSACTION NUMBER)  WILL"
18260 [153]"APPEAR NEAR THE  UPPER-RIGHT CORNER"
18270 [153]"OF THE SCREEN. THIS IS THE FILENAME"
18280 [153]"UNDER WHICH YOUR FILE WILL BE STORED."
18290 [153]"ONYOU NEED NOT WORRY: IT'S AUTOMATIC."
18300 [153]"MONTHS MUST BE ENTERED BY THEIR"
18310 [153]"FIRST THREE LETTERS: I.E. FEB,APR,"
18315 [153]"JUL, OCT, ETC."
18320 [153]"AMOUNTS MUST BE IN DOLLARS AND CENTS:"
18330 [153]"ONI.E. 32.00 INSTEAD OF 32."
18340 [153]"TO ABORT A TRANSACTION USE THE LEFT"
18350 [153]"ARROW (_) AS A RESPONSE TO A PROMPT.":[141]18900
18360 [153]"LOADLOOKING AT YOUR ACCOUNT"
18370 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
18380 [153]"THE "[199](34)"VIEW BOOK"[199](34)" OPTION BRANCHES"
18390 [153]"INTO SEVERAL SUBROUTINES"
18400 [153]"PRINTER WILL PRINT OUT ALL FILES"
18410 [153]"ON THE DATA DISK IN NEAT COLUMNS"
18420 [153]"SCREEN BRANCHES INTO OTHER"
18430 [153]"OPTIONS AS DESCRIBED BELOW."
18440 [153]"ALL WILL DISPLAY EVERY FILE ON"
18450 [153]"DISK IN SCROLL OR ONE AT A TIME.
18460 PRINT"RECENT WILL DISPLAY THE LATEST FILES."
18470 PRINT"SELECTIVE WILL ALLOW USER TO CALL"
18480 PRINT"A SPECIFIC FILE BY ITS TR#.":GOSUB18900
18490 PRINT"[147]CORRECTING ERRORS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
18500 PRINT"THERE ARE 2 WAYS TO CORRECT MISTAKES."
18510 PRINT"[145]YOU MAY USE THE CANCEL LAST TR OPTION"
18520 PRINT"[145]ON THE SECOND MENU PAGE TO DELETE THE"
18530 PRINT"[145]MOST RECENT FILE ONLY, OR USE THE"
18540 PRINT"ADJUSTMENTS OPTION WITH EITHER A"
18550 PRINT"POSITIVE (+) OR NEGATIVE (-) AMOUNT"
18560 PRINT"TO ADJUST THE BALANCE OF THE ACCOUNT."
18570 PRINT"NOTE: THE LATTER WILL NOT ERASE"
18580 PRINT"FILES. YOU MAY RECORD UNDER 'REMARKS'"
18590 PRINT"[145]THE NATURE OF THE ADJUSTMENT.":GOSUB18900
18600 PRINT"[147]OTHER MENU OPTIONS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
18610 PRINT"ZERO ACCOUNT DELETES ALL FILES"
18620 PRINT"ON DISK, AND RESETS BALANCE"
18630 PRINT"TO $0.00 (ZERO) BUT LEAVES THE"
18640 PRINT"PROGRAM INTACT."
18650 PRINT"READ BALANCE DISPLAYS THE CURRENT"
18660 PRINT"BALANCE ON THE MONITOR SCREEN."
18670 PRINT"FOR INQUIRIES ABOUT THIS PROGRAM,"
18680 PRINT"WRITE TO:"
18690 PRINTTAB(10)"GABRIEL EGRI"
18700 PRINTTAB(10)"3 ECCLESTON DRIVE"
18710 PRINTTAB(10)"SUITE #103"
18720 PRINTTAB(10)"TORONTO, ONT."
18730 PRINTTAB(10)"M4A 1J9":GOSUB18900
18899 GOTO120
18900 PRINT"HIT ANY KEY"
18910 GETX$:IFX$=""THEN18900
18920 RETURN
19000 POKE53281,1:PRINT"[147]"SPC(130)"*** CAUTION ***
19010 [153]"THIS ROUTINE WILL ERASE THE PROGRAM FROMCOMPUTER MEMORY";
19020 [153]" BUT WILL  NOT AFFECT THEPROGRAM OR RECORDS ON THE DISK."
19030 [153]"DO YOU WISH TO PROCEED?   Y/N"
19040 [161]M$:[139]M$[178]""[167]19040
19050 [139]M$[178]"Y"[167][158]64738
19060 [137]1900
20000 [131]JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC